home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #02 (Apr85-Jul85) / modula 2 / modula Vol. 1 #8 / ListVolumes.MOD < prev    next >
Text File  |  1985-04-13  |  910b  |  41 lines
  1. MODULE ListVolumes;
  2.   FROM VolumeTracer IMPORT VCB, VolumesOnLine, GetVolumeInfo;
  3.   FROM InOut        IMPORT WriteString, ClearScreen, WriteLn, WriteCard,
  4.                            WriteInt, Write, Read;
  5.   
  6.   VAR
  7.     i, maxVols : CARDINAL;
  8.     vcb : VCB;
  9.     ch : CHAR;
  10.   
  11.   PROCEDURE PrintVolName;
  12.     VAR
  13.       i : CARDINAL;
  14.   BEGIN
  15.     FOR i := 1 TO ORD(vcb.vcbVN[0]) DO
  16.       Write(vcb.vcbVN[i]);
  17.     END;
  18.     WriteLn;
  19.   END PrintVolName;
  20.  
  21. BEGIN
  22.   ClearScreen;
  23.   WriteString("Number of volumes on-line: ");
  24.   maxVols := VolumesOnLine();
  25.   WriteCard(maxVols,0);
  26.   WriteLn; WriteLn;
  27.   FOR i := 1 TO maxVols DO
  28.     GetVolumeInfo(vcb,i);
  29.     WriteString('Volume Name: ');
  30.     PrintVolName;
  31.     WriteString('Number of files in volume: ');
  32.     WriteInt(vcb.vcbNmFls,0);
  33.     WriteLn;
  34.     WriteString('Drive Number: ');
  35.     WriteInt(vcb.vcbDrvNum,0);
  36.     WriteLn;
  37.     WriteLn;
  38.   END;
  39.   Read(ch);
  40. END ListVolumes.
  41.